home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok25 / microtimer / microtimer.def next >
Text File  |  1993-11-04  |  1KB  |  47 lines
  1. (*
  2.   :Program.       MicroTimer.def
  3.   :Author.        Volker Rudolph
  4.   :Address.       Medicusstr. 31 / 6750 Kaiserslautern
  5.   :Phone.         0631/17160
  6.   :Copyright.     PD
  7.   :Language.      Modula-II
  8.   :Translator.    M2Amiga 3.2d
  9.   :History.       V1.1 V. Rudolph 24.Apr.1989
  10.   :History.       V1.2 [bne] 03.Sep.1989 (+ CiaTimerName)
  11.   :Contents.      MicroTimer ermöglicht sehr präzise Zeitmessungen.
  12. *)
  13.  
  14. DEFINITION MODULE MicroTimer;
  15.  
  16. CONST
  17.   CiaTimerName="ciab.timer";
  18.  
  19. PROCEDURE StartTimer;
  20. (*
  21.   :Semantic.      Timer starten
  22. *)
  23.  
  24. PROCEDURE LookTimer(VAR micros:LONGINT);
  25. (*
  26.   :Output.        aktueller Stand des Timers
  27.   :Semantic.      Zeit auslesen während der Timer läuft
  28. *)
  29.  
  30. PROCEDURE StopTimer(VAR micros:LONGINT);
  31. (*
  32.   :Output.        Endstand des Timers
  33.   :Semantic.      Timer stoppen und auslesen
  34. *)
  35.  
  36. PROCEDURE MicrosToTime(VAR minutes, seconds:CARDINAL;
  37.                        VAR micros:LONGINT;
  38.                            inputMicros:LONGINT);
  39. (*
  40.   :Input.         inputMicros: Zeitangabe in Mikrosekunden
  41.   :Output.        minutes,seconds,micros: Umgerechnete Werte
  42.   :Semantic.      Mikrosekunden in Minuten, Sekunden und ...
  43.   :Semantic.      restliche Mikrosekunden umrechnen
  44. *)
  45.  
  46. END MicroTimer.
  47.